home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS210.dsk / POSTWRITE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  27 lines
  1. 1  POKE  -16304,0: POKE  -16297,0: POKE  -16302,0
  2. 5  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>       <CTRL-M>*** <CTRL-J>
  3. 10  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>        <CTRL-M>*** DEFINE<CTRL-J>
  4. 20 Q$ =  CHR$(34):D$ =  CHR$(4):CL% = 948:KY% = 962:HI% = 772:TE% = 781:UN% = 25345:X% = 768:Y% = 769: DEF  FN C(QZ) =  INT(QZ/2) - INT( LEN(A$)/2)
  5. 21 PO =  PEEK(767)
  6. 30  CALL TE%:A$ = "GUEST REGISTER": PRINT D$"OPEN"A$: PRINT D$"READ"A$: INPUT BG%: INPUT FI$: INPUT LA$: INPUT FI$: PRINT D$"CLOSE": CALL HI%
  7. 35  GOTO 2000
  8. 38  IF P =  -1  THEN 50
  9. 40  CALL TE%:A$ = "PRE": PRINT D$"OPEN"A$: PRINT D$"READ"A$: INPUT PRE: PRINT D$"CLOSE"
  10. 50  HGR : POKE  -16302,0: CALL HI%: HCOLOR= 6: FOR Y = 2 TO 5: HPLOT 0,Y TO 279,Y: NEXT :A$ = " RESULTS ": POKE X%, FN C(40): POKE Y%,0: PRINT A$
  11. 55  IF P =  -1  THEN 100
  12. 60  POKE Y%,30: PRINT " "FI$", you got "PRE"0%": PRINT "on the pretest, and "PO"0% on the": PRINT "post test."
  13. 70  GOTO 200
  14. 100  POKE Y%,30: PRINT " "FI$", you didn't take": PRINT "the pretest and got "PO"0% on": PRINT "the post test."
  15. 200  PRINT : IF P =  -1  THEN 300
  16. 210  IF PO >PRE  THEN  PRINT " Well, it looks like this program was   able to furthur your understaning of    protein synthesis.": GOTO 300
  17. 220  IF PO <PRE  THEN  PRINT " Egad! It appears as though I've        actually injured your already clear     understaning of protein synthesis! Just walk quietly away and don't tell anyone about this, okay?": GOTO 300
  18. 230  IF PO = PRE  THEN  PRINT " Gee. I guess my lesson was a total     waste: it didn't teach you a thing.     Excuse me while I step into the next    room and have a nervous breakdown..."
  19. 300  POKE Y%,23 *7:A$ = "Press any key.": POKE X%, FN C(40): PRINT A$: CALL KY%: PRINT D$"PR#6"
  20. 999  END 
  21. 1000  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>          <CTRL-M>*** LOAD IN PACKED PIC<CTRL-J>
  22. 1010  PRINT D$"BLOAD"A$".PAC,A$63B8": CALL UN%
  23. 1020  RETURN 
  24. 2000  ONERR  GOTO 2020
  25. 2005  CALL TE%
  26. 2010  PRINT D$"VERIFYPRE": GOTO 38
  27. 2020  POKE 216,0:P =  -1: GOTO 38